(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     50043,       1149]
NotebookOptionsPosition[     44974,       1060]
NotebookOutlinePosition[     45489,       1081]
CellTagsIndexPosition[     45446,       1078]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["PN\:7ed3\:5b9e\:9a8c\:62a5\:544a", "Title",
 CellChangeTimes->{{3.7850488989609284`*^9, 
  3.785048900799257*^9}},ExpressionUUID->"4bd6f528-75ad-45f8-a448-\
81df43acee8c"],

Cell[CellGroupData[{

Cell["\:3010\:5b9e\:9a8c\:76ee\:7684\:3011", "Section",
 CellChangeTimes->{{3.7850489120161877`*^9, 
  3.7850489247985387`*^9}},ExpressionUUID->"ee171d3d-8b5a-4493-bf98-\
654061585599"],

Cell["\<\
1\:3001\:6d4b\:91cf\:6b63\:5411\:7535\:538b\:968f\:6b63\:5411\:7535\:6d41\
\:7684\:53d8\:5316\:5173\:7cfb\:ff0c\:7ed8\:5236\:4f0f\:5b89\:7279\:6027\:66f2\
\:7ebf\:ff1b 
2\:3001\:6d4b\:7ed8PN\:7ed3\:6b63\:5411\:538b\:964d\:968f\:6e29\:5ea6\:7684\
\:53d8\:5316\:66f2\:7ebf\:ff0c\:786e\:5b9a\:5176\:7075\:654f\:5ea6\:ff0c\:4f30\
\:7b97\:88ab\:6d4bPN\:7ed3\:6750\:6599\:7684\:7981\:5e26\:5bbd\:5ea6\:ff1b
3\:3001\:5b66\:4e60\:6307\:6570\:51fd\:6570\:7684\:66f2\:7ebf\:62df\:5408\
\:7684\:65b9\:6cd5\:ff0c\:5e76\:8ba1\:7b97\:51fa\:73bb\:5c14\:5179\:66fc\:5e38\
\:6570\:ff0c\:4f30\:7b97\:53cd\:5411\:9971\:548c\:7535\:6d41\:ff1b
\
\>", "Text",
 CellChangeTimes->{
  3.785048929004671*^9},ExpressionUUID->"4d752fd2-d606-4fb8-a876-\
e0324d7067b9"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:3010\:5b9e\:9a8c\:539f\:7406\:3011", "Section",
 CellChangeTimes->{
  3.7850489394039764`*^9},ExpressionUUID->"034579c0-f6fa-40e8-948a-\
d9772168b15a"],

Cell[TextData[{
 "\:7406\:60f3\:60c5\:51b5\:4e0b\:5bf9\:4e8ePN\:7ed3\:7684\:6b63\:5411\:7535\
\:6d41\:548c\:6b63\:5411\:7535\:538b\:5b58\:5728\:5982\:4e0b\:5173\:7cfb\:ff1a\
",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztmjtu3DAQhoWkSZkrpCbSp02Z1gEPYCMbI80GWAcI0ukwqXQe3cchKZHL
xwwfWkdLY/8PsLGm+RjOzyFH4n54+Hn3/c0wDE/v1K+7+9+fT6f7P1/fqz/k
8enH4/Hw7cvx1+HxcPr08FYVflQ/f9WP/vwMAAAAAAAAAAAAAAAAAABQxTyN
Uo7z1YbXo09bh5/kECGnFzXvMtTkrufZmEmKQcjI1akDDUJXDGvOo0hq2clF
/+M1mI0R232iHGqH6MavBu3HXpZezsfzKriz1RakDayoyZqxbUQ5bnUfYqtf
llF68aqlJ6sKq44wNZbfsohNrBr9j+pg2xwFPTnVwUbGlWzJGbLoFzpwDeCk
GeNsVdw0VdN9u2QdSq1mIkZzsnSgddGtlNRsXFPeNpty40TNoK2N+pPaKD2T
HoxrqrTYJTVCZjMdv3AtMc0XIb2eRJgOTqUl1xLV1Baup7vB/TX+KQ5OZ5a7
LQZlkBmrOJc13hbDbWaTTY/MXmxbeNMUUq6lSvJIpGIoRA6c7apJsy+yu+WY
JmsVJGgOUjpVUN34fSyBlmmfp2WnUenuOnIhntJ9z+axs1/FK1Fdx92tNQJ/
ha3YVCrjAFplr7a/kjjPliUomlYY25XacaZxnPTA+4T1WelSWBPpErVvulOT
3igprcNFUwqeNKols3sT1XmlqyRoC+yS1N6IO6CmHgclN3puOyFPTronWmu/
tOBP0oGZRwivu+wxXSVBk9as1Nv234sg1WNHLyZMQV020i7VmtlGC29SdHk+
IauToEVrVmpbtF9YJ8dR4TDio37Z8by/9bEwkZrmta7YwzkjWa1tb5kEaO23
RoIGrflF6ZorxxVC50VyMzbx4OeRJGKu3H9i8jomG+TOa/9JjZ5Bs9Quv84q
XStBQ25WIfUuzF5CFpiRn4dzm9LW1prDZCfqmBCWfAwOh+aDh9kWrWFEk2zu
EBhQI0FtWNvnyEGmC31HqdesNb0HsDcEuUVLbSnnhHi9lKJ7teO5LlwR87qB
OnqjB/rgzQ5teJU6tRLUvEshntMXy86+2yUhC+3gbvfy1phAttW8x1qvb/fk
Ek3be1+jPk/u9ZtILoiTt5HMNaaxwTTPbLp517ZIUHpJD0Lo8zqhQ7duvPu4
YSq17usmXdObPa+Aaq233UX9Jy76rsKtwn99hK4+Et9B2hkq5wQF4gSrWu/X
+91CAAAAAAAAAAAAAAAAuAn+AYUvz24=
     "], {{0, 45}, {164, 0}}, {0, 255},
     ColorFunction->RGBColor],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->Automatic,
   ImageSizeRaw->{164, 45},
   PlotRange->{{0, 164}, {0, 45}}]], "Input",ExpressionUUID->
  "72001fb0-1b4d-4ade-a018-402f9c601fe1"]
}], "Text",
 CellChangeTimes->{{3.7850489498886414`*^9, 3.7850492044962244`*^9}, {
  3.785066005393011*^9, 3.7850660312385025`*^9}, {3.785066081761595*^9, 
  3.785066081761595*^9}, {3.7850663901140985`*^9, 
  3.7850664041561317`*^9}},ExpressionUUID->"b6e2db9f-b4b3-4685-b467-\
dc0423049206"],

Cell[TextData[{
 "\:5176\:4e2d",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztlbFOwzAQhi1YOvIALMzeESsja9E9QCtCxRKkFAmx+Xnuee594GI36jl2
TGN7Av9Sqsbxnb7zf7bv9u/b1yul1HHDP9vd5+Mw7L6eb/gF+uPboe9envqP
7tAND/trHrzl556f8f93U1NTU9NfEAKf+ViYhIxWUtpQFbhz6mJEmwocHF5O
xzFWyzMQdL2iRzeq1OrnBESog5gNSLQUxA5bLud0gDjvrUB+hAWUQ3QySAPb
jia1AguEE2CdZpwD2pzunTI3o3VYpitCFECCeErIG2J9E7EFEsg1YzZiABhx
PSNjRBJxRR+6qfP6SqqWDvv5soqOA6Y+5AAWIKY4IvbHZgVB8ZDc/TLvOASR
4pdTktCMZ5I/opVeiJhuGFhzbwVLPxY6XX2UBgxi3UD0vPW/XeZ2sJVcjD2c
yZyq1elyCVesRlPTf9cPJjcSTw==
     "], {{0, 28}, {54, 0}}, {0, 255},
     ColorFunction->RGBColor],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->Automatic,
   ImageSizeRaw->{54, 28},
   PlotRange->{{0, 54}, {0, 28}}]], "Input",ExpressionUUID->
  "4eb65417-8b04-4492-a77a-6695e1d9dfc3"],
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztmEtOwzAQhiPYsOQKsPUF2LJkW+QDtKJUCKlILRJi5/PkPL4PTOy48WNs
N62dZDG/lKpxE4/ns8cz7sPma/V+0zTN8Q4+Vuuf58Nh/ft6Dzd8f/zY7bdv
L/vv7W57eNrcQuMjXJ9wdd//SCQSiUQikUgkEolUTnTOulIhQClbIThjTMhZ
RtTyBhNjvJXzjCiugJ4UrGH9gHF+Efc8Z69lL3szvPUa5prViCLxqwZ7Grsj
RZiLVg63zrOqAX91lDQvpyOf6RKEA0zwg9/sHwJ+qqmAi7pjt6Pe2HLWYCx9
JPkJe/gIP2gTdfgtbwWOj19PGL8immv9QfbkOgOoKFIkEgbT8dsPeFDAqTK/
08il8atLw6VtDWq1Db29q0Ik3IYtnRW/yhMrZSCPVuPnZvUcOuSdUaWBoSf9
HqPunRG/UDnE2J0enWT98drBq11xDeTcS8Sv6kjCCk7O+kT8bGOVGGL4Mu4l
4xd6UnOeZoNaLSCUX1WCKKrM8kjFb7fh8A5gcrAT86sIEEOVTY+p+FVv5RL4
4vhdnEQQi6avS+N3uInOwLT8zDG4SgkdmITNHyqYS+N3yH12Kese36rxk0L3
axkbKttqSdgmqOoOKTPxhwPUJZ89ET3B7mhmdzWsh4Iexf/iYUzVoTWPvyZk
TcGb5BeL3/Dw1M+MXctgbi7naF9K6fUXA0gy8kPREwHMKMmP6GUEOYt5acwR
AYwr2N8xiATwGs1L7x/m2vbL
     "], {{0, 34}, {107, 0}}, {0, 255},
     ColorFunction->RGBColor],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->Automatic,
   ImageSizeRaw->{107, 34},
   PlotRange->{{0, 107}, {0, 34}}]], "Input",ExpressionUUID->
  "f0da2bfd-1ead-4315-b863-a6fea98b6af2"]
}], "Text",
 CellChangeTimes->{{3.7850661067934384`*^9, 
  3.785066128906249*^9}},ExpressionUUID->"3ed071e4-b3b6-44bb-8ca6-\
7ca28fe9b811"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
   "\:4e8e\:662f\:53ef\:4ee5\:901a\:8fc7\:5bf9\:4f0f\:5b89\:7279\:6027\:66f2\
\:7ebf\:8fdb\:884c\:6307\:6570\:62df\:5408", "\:ff0c", 
    SubscriptBox["\:5f97\:5230I", "S"]}], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "ff2e64ca-f3da-4d47-82fe-9e9cd5208b46"],
 "\:548ck\:7684\:503c\:3002"
}], "Text",
 CellChangeTimes->{{3.785066138594013*^9, 
  3.7850661885447464`*^9}},ExpressionUUID->"f4a8b676-de5a-4715-a9f6-\
63e81542df59"],

Cell[TextData[{
 "\:800cPN\:7ed3\:6b63\:5411\:7535\:538b\:548c\:6e29\:5ea6\:4e4b\:95f4\:5b58\
\:5728\:5982\:4e0b\:5173\:7cfb\:ff1a",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnU+OpTYQh18ymyxzhay5wGyzjJTVRBxgRumMsulIPZGiLCJxHs7j+3T4
Z7DBBptnGwPfJ81o+vEaClP+US67PD99+evTH98/Ho9vPzR/ffr8z89vb5//
/e3H5ofy9dufX19ffv/l9e+Xry9vH798aD78tfnz33ePR/vvdwAAAAAAAAAA
AAAAAAAAAAAAAMgDIeqqKouiqMTRpgDA9RFV8SgeHQerTqN9rfQ9BoqirEVn
YIkaAlyQumyXudcHXV3UZSGFRsw+PNIuAIjHgaojJacPbWZ0djH0A7ggx6lO
d+WVazfHUR2AC3KU6rRppY1BVPMVhlgA10OqjlSBkcgdfivSaSGfDHBFtFin
k56irEyJlrA4hDoAcE1U1RF1mUJxukuhOgB3ZZorasYzxtmkKKA6ALdFqk43
i51QA5AdgLsyZHWLsmxlJ+FU9SA7TI4D3I0+1ukijtQL81ymsQDgcmhSk3rx
zrbuMHkOcH7aWkulJ+sBTj/sGVSgLm1y0NdrhoiLpvSO6VRdgtv2i8nm2yA2
i8ViC5dMtYwsQ6syMeMZ2qSxVvjUL9GZ5GPUHVHZOvV0q2GGY7LYUy8B7ZRt
dVKty4BbTBiiqHVCjiYv4BvD22Syf5D1Kd6M26qymZZPXfQXLo54zWRiVSZm
7MHQTbXoRvlkvcOP3wrWb4fwaXRdvQx93Q5D4UT/8fgghmc2fa/7IHz3P7Fv
TI90tHAs/pePOXarWp2qPZBuWYfh4hlYlYkZ3rSOH6ynhZadJzDdlz48XPSP
aFVeZ/WN974Zl4ZrShK7VXtpXpzh4ELgTKzKxAxPzF61m4xkx/CSrSvVMEP/
6IaQEUzJyje8rmqbw1SUJHqrmlqvi7AOdbNMrMrEDC+CDypykp1FfspwNFFG
JSvf8JcdY7hjnkiM0KoGn2o+OnrvgUysysQML8Ivx5m1gpC5mbYZ2pyAzHGk
6W7LDNX8WBrVycs3/GIsmS52GwrGaNWFZvcj04BX2IOXVfFeMSEap/VFJU03
e88oR8NgCf2fQetgrX8PueCyrGTO8egoY/tQfDMO9Q3fod24fazDb8V2qd6c
QN3AMMu4wHYpD6vkYv+NsDu2GRZUVxw9Y+afQZMBMQZEi3OaE4zBr+tqzohv
/7iQb+xwokl51lsshpbrrRdOdJ7D06pYWbxnG6exa3xamj+pB0w/7ye+j7yv
yM6x4U7KWCc339jXBSbdtV8iSqsqJ80oa+FpVSzZcTNDqMuulCekv7g0Gxfx
uCme3vUuvrHs2BKl0Y3I1DfcHsZ4ptW1mIFbdfKojETH26pIsuNiRnvE/MrT
3Wftp5C3cF/ZSas6ufmGo/8YZ73X8hRxWlU+weCZzafwtSqS7LiY0YbA/TEx
W8qmG7XlWqES+VbZ2X45Kui/+pTseF3XwRjbPaZVnex8w7ELmCvv7O+MSK0q
Z9K2ure5QGO1LZ7I17lapXw/RkrZyYzp/LNV8jOj1gPpYLJzbEo5SbRjvMVd
/eNCvuEmO5ZvWZ0mkurIdnHxlllqK2J85GOVNC2CLY5m1JY1VjOjVN8x+FGw
ZQsJZjsPlh3THSaOdfLzDacuYFnylFp1fHxUaAuna1u8ltiq8RcieJyTGf2a
IdOqq4WzqJOkplRwoFsIvlxQVMM+OeN6wWUywPBRLJZ9R178kW6znux8w8l/
xhBtir3E8HQNS5ajtarHOrtJdUTs/z7Nb/WfEiiHT6RumiEaCa6Geur5Ml1z
tGw2NGTsKFbLB/acTBlx1PNxSZfemH8U5NIWtIIz0+A/kfTl5RtO0lT1cqPv
AFAsS+gPatUlmmtllHw+lJkAi27PGPULPou9QvbVwKWgOdE5Yi4zritk6xtn
QmiLuO/aCnP66YkxXK3LZVlSwEmIHaaFPWcOnOa+MvaN86Aqrl4Sf2/U1WDW
UsjG5ewtFi0z7zdUPQXdLZ1CdFoy9o2TcOM478wM3TQ/x13mDjbdSww7tCax
DzIg2NwupEdoW7hnhJwfe7joIlu43wtlwVOWzgunJWnhJgAAqgMAiUF1AO7H
9N8kdYna4Gub10F1AO5Gv7HcsHC/XU1bppWBZRXQjlpjADgNUnP0UsRjVae3
K1WtMQAkxVRVnHjIY1adhLXGAJAQ41YGmakO5TcAV2JlX77jVYdaY4ALYhKY
PPI61BoDXBNDj/feyDGCDS3UGgNcE8PmpGXVlUblpDoAcCXUTi/qtkZUpFwm
KOTWhJtb7QHAdZCDqmIo6E6lOobVgOPeweSRAe5E4pIIALg9QTd7BwDYBNUB
gJQM+V3WyABAAhb5XaQHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOAe
/A8IiKXS
     "], {{0, 76}, {381, 0}}, {0, 255},
     ColorFunction->RGBColor],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->Automatic,
   ImageSizeRaw->{381, 76},
   PlotRange->{{0, 381}, {0, 76}}]], "Input",ExpressionUUID->
  "04e9d34b-be98-495b-b6c1-1fb69f12aefb"]
}], "Text",
 CellChangeTimes->{{3.7850662055064297`*^9, 
  3.7850662345655813`*^9}},ExpressionUUID->"b46de36d-7d02-4f88-a8dd-\
703c1f5b4c42"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
    "\:6d4b\:5f97\:7535\:538b", "-", "\:6e29\:5ea6\:5173\:7cfb\:540e"}], 
    "\:ff0c", "\:7ebf\:6027\:62df\:5408", "\:ff0c", 
    RowBox[{"\:53ef\:4ee5\:5f97\:5230\:659c\:7387", 
     RowBox[{"\:ff08", 
      RowBox[{"S", "\:ff0c", "\:7075\:654f\:5ea6"}], "\:ff09"}], 
     "\:548c\:622a\:8ddd", 
     RowBox[{"\:ff08", 
      RowBox[{
       SubscriptBox["V", "g"], "0"}]}]}]}], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "978b1494-e3e0-4b17-8d29-64b82621b961"],
 "\:ff09\:ff0c\:518d\:7531",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztWktO5DAQbcGGJVeYLbkAW5azZeQDgKYHsemRmpFGsPJ5fB7fJ5TjOInj
8qc7TuxI9aRGnV+73stLVdnhx+vf5z83h8Ph4w7+PL/8fzqfXz5/3cMGO328
v52Ov3+e/h3fjufH11vY+QCfL/io7y2BQCAQCAQCgUAgEAiEHUHy5hABE6WD
vAwYpYHD/GABciYEe2gput0Nl5sHtBxSMC2nG7451HBRhpkeH7nPgu1T7MFB
mHcVW1ZI6daIjekqON9ZHjHwqg0GKuogueOM4YXHQaW1xsQGS2eLSF6CXIPi
1oadTeGa78YlOcsWE/xWkw6WcpOhyvV9RSddZ2LHr4iFKtDaEbvjUjooL7TQ
TV/joGsCY6BZ0EkkSuviuRLtt8uHhQJJxb6SM/dQ8XRtwrDTiNTtUcmQcOA9
Bp5G5jcGtK6CEmIXkS9pt0lz1ZSHytPP+cS2TFSL1miblLMfyQW8nfN3ruPN
KZmuBZttVpylJ0Dj7BVFozcXiKJaN8zeDootWCXzSCyNmAyFR28WSRY4KfxQ
xB8ZOMMKuA8JzWmykiKu4aRn5RuumkE8RnyV7QKoH4hdDEEFFVJyD98Fbg4J
B0DouhLMYG4VkdRVT+/DJfEusqUBLk+7NnKi5G1qm+BkSWZdpUfpbk139spV
f5g/gqe15gGx1bG4V3BGqK+9NFepwepHJ73r+HXit22b9JDYiddjjFpM7BDN
WDq5BmoQ3s+V2djGTgbauNFaKjbOyByZTT9CNFMS/MUYk49ZorBz1iqDxsJZ
NCDCSGOmdoTmOsQhcTnd7hjUprN9U98XDugwMvuZdy0LobmG2rrsCPcRGurV
Jlq75X1Ri4e/l7T1i9FcIW+rhU1u+sLBEXKo0/W0iqnAGfXHbLsGaWYvV7M5
kRq8jjWeqxFllGzY/J2Y/YK6m1rsz8sWEhjlmEteiek0YPdSd0hiFPznjire
BBEIBAKBsGd8A6cdxAI=
     "], {{0, 42}, {122, 0}}, {0, 255},
     ColorFunction->RGBColor],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->Automatic,
   ImageSizeRaw->{122, 42},
   PlotRange->{{0, 122}, {0, 42}}]], "Input",ExpressionUUID->
  "86fde1e6-c933-4aa1-a239-34440ebb501d"],
 "\:5f97\:51fa\:7981\:5e26\:5bbd\:5ea6\:3002"
}], "Text",
 CellChangeTimes->{{3.785066250757403*^9, 3.7850663174678097`*^9}, {
  3.785066358984934*^9, 
  3.7850663817134547`*^9}},ExpressionUUID->"b9135f1e-dbd0-49b2-b6c0-\
ce3da68f9fe2"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:3010\:5b9e\:9a8c\:5185\:5bb9\:3011", "Section",
 CellChangeTimes->{{3.785049219415368*^9, 
  3.7850492256870003`*^9}},ExpressionUUID->"76fe335e-8a01-45bd-9677-\
e433a5185cca"],

Cell["\<\
1.\t\:8fde\:63a5\:597d\:7ebf\:8def
\:6253\:5f00\:7535\:6e90\:5f00\:5173\:ff0c\:6e29\:5ea6\:4f20\:611f\:5668\:5b9e\
\:9a8c\:88c5\:7f6e\:4e0a\:5c06\:663e\:793a\:51fa\:5ba4\:6e29TR\:ff0c\:8bb0\
\:5f55\:4e0b\:8d77\:59cb\:6e29\:5ea6TR\:3002
2.\t\:5728\:4eea\:5668\:901a\:7535\:9884\:70ed10\:5206\:949f\:540e\:8fdb\:884c\
\:5b9e\:9a8c\:3002
3.\t\:6d4b\:91cfPN\:7ed3\:7684\:4f0f\:5b89\:7279\:6027\:ff0c\:7535\:6d41\:503c\
\:9009\:53d61000\:81f310000nA\:ff0c\:5728\:4eea\:5668\:4e0a\:8bfb\:51fa\:5bf9\
\:5e94\:7684\:7535\:538b\:503c\:3002
4.\t\:63a7\:5236\:6e29\:5ea6\:9010\:6e10\:5347\:9ad8\:ff08\:4ece25\:6444\:6c0f\
\:5ea6\:4e0a\:5347\:81f3109\:6444\:6c0f\:5ea6\:ff09\:ff0c\:6d4b\:5b9a\:7535\
\:538b-\:6e29\:5ea6\:66f2\:7ebf\:3002\
\>", "Text",
 CellChangeTimes->{{3.7850492292042646`*^9, 3.7850492389520636`*^9}, {
  3.785066417641011*^9, 
  3.7850665332512875`*^9}},ExpressionUUID->"d9448835-ee1a-4336-88e8-\
72ad589ad665"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:3010\:5b9e\:9a8c\:6570\:636e\:8bb0\:5f55\:3011", "Section",
 CellChangeTimes->{{3.7850492538003225`*^9, 
  3.7850492612344494`*^9}},ExpressionUUID->"c0df295f-bbb2-4acd-9279-\
758231a20130"],

Cell["\:5b9e\:9a8c\:4e2d\:6d4b\:5f97\:7684\:4e3b\:8981\:6570\:636e\:4e3a\:4f0f\
\:5b89\:7279\:6027\:6570\:636e\:4ee5\:53ca\:6e29\:611f\:6570\:636e\:3002", \
"Text",
 CellChangeTimes->{{3.7850492663540516`*^9, 
  3.7850492990989733`*^9}},ExpressionUUID->"ee7f69ef-4a7f-4c5f-bd5b-\
9d2abb58f507"],

Cell[TextData[Cell[BoxData[GridBox[{
   {
    RowBox[{
     SubscriptBox["I", "F"], "/", "nA"}], "1000", "2000", "3000", "4000", 
    "5000", "6000", "7000", "8000", "9000", "10000"},
   {
    RowBox[{
     SubscriptBox["V", "F"], "/", "V"}], "0.471", "0.495", "0.505", "0.512", 
    "0.518", "0.523", "0.527", "0.530", "0.533", "0.536"}
  },
  GridBoxDividers->{
   "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, 
    "RowsIndexed" -> \
{}}]],ExpressionUUID->"e744be8f-7094-4a04-a1d0-606542b73458"]], "Text",
 CellChangeTimes->{{3.785049682219304*^9, 3.785049853654791*^9}},
 TextAlignment->Center,ExpressionUUID->"8a15c8a8-a6a1-4f68-80f2-0376d874ec10"],

Cell[BoxData[GridBox[{
   {
    RowBox[{"T", "/", "\:6444\:6c0f\:5ea6"}], "25", "30.6", "35", "40", "45", 
    "50", "55", "67", "70", "75", "80", "87", "90", "95", "100", "106", "109"},
   {
    RowBox[{
     SubscriptBox["V", "F"], "/", "V"}], "0.521", "0.506", "0.494", "0.481", 
    "0.468", "0.455", "0.442", "0.409", "0.402", "0.388", "0.475", "0.356", 
    "0.348", "0.335", "0.322", "0.306", "0.299"}
  },
  GridBoxDividers->{
   "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, 
    "RowsIndexed" -> {}}]], "Text",
 CellChangeTimes->{{3.785049341238924*^9, 3.785049648084656*^9}},
 TextAlignment->Center,ExpressionUUID->"a2c6c2c4-6a56-4808-9219-64ed1b42c6a1"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:3010\:5b9e\:9a8c\:6570\:636e\:8bb0\:5f55\:3011", "Section",
 CellChangeTimes->{
  3.785049867885725*^9},ExpressionUUID->"9e3083e1-169d-4882-b0ca-\
f0d207fa85eb"],

Cell[TextData[{
 "\:4ee5\:4e0b\:5bf9\:5b9e\:9a8c\:6570\:636e\:8fdb\:884c\:66f2\:7ebf\:62df\
\:5408\:5e76\:4e14\:7b97\:51fa\:76f8\:5173\:53c2\:6570\:3002\:ff08",
 StyleBox["\:4ee5\:4e0b\:62df\:5408\:5f97\:5230\:7684\:53c2\:6570\:5355\:4f4d\
\:5747\:4e3a\:56fd\:9645\:5355\:4f4d\:5236",
  FontWeight->"Bold"],
 "\:ff09"
}], "Text",
 CellChangeTimes->{{3.7850498792460794`*^9, 3.785049913309618*^9}, {
  3.785060284874467*^9, 
  3.785060332002219*^9}},ExpressionUUID->"48d5c4d4-2d4d-41a3-8d30-\
a9c8a8d88720"],

Cell[CellGroupData[{

Cell["\:4f0f\:5b89\:7279\:6027\:62df\:5408", "Subsection",
 CellChangeTimes->{{3.7850499206050816`*^9, 
  3.7850499248968534`*^9}},ExpressionUUID->"60a67437-7577-4b1e-9101-\
fb43c6334617"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
     1.6], PointBox[{{0.477, 1.*^-6}, {0.495, 2.*^-6}, {0.505, 3.*^-6}, {
      0.512, 4.*^-6}, {0.518, 5.*^-6}, {0.523, 6.*^-6}, {0.527, 7.*^-6}, {
      0.53, 8.*^-6}, {0.533, 9.*^-6}, {0.536, 
      0.00001}}]}, {}}, {}, {}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
    "\"\\!\\(\\*SubscriptBox[\\(V\\), \\(F\\)]\\)/V\"", TraditionalForm], 
    FormBox[
    "\"\\!\\(\\*SubscriptBox[\\(I\\), \\(F\\)]\\)/nA\"", TraditionalForm]},
  AxesOrigin->{0.476078125, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotLabel->FormBox[
    RowBox[{"{", "\"\:4f0f\:5b89\:7279\:6027\:70b9\:56fe\"", "}"}], 
    TraditionalForm],
  PlotRange->{{0.477, 0.536}, {0, 0.00001}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Input",
 TextAlignment->Center,ExpressionUUID->"d1fed98e-ce1b-445e-b20d-0b5947de6b6c"],

Cell["\<\
\:4f0f\:5b89\:7279\:6027\:56fe\:5982\:4e0a\:6240\:793a\:3002\
\>", "Text",
 CellChangeTimes->{{3.785050091001809*^9, 
  3.785050100174251*^9}},ExpressionUUID->"05ee9bc9-29e0-486a-bfc6-\
52c522562c44"],

Cell["\:6309\:7167y=A*Exp[B*x]\:7684\:5f62\:5f0f\:8fdb\:884c\:62df\:5408\:ff0c\
\:5f97\:5230", "Text",
 CellChangeTimes->{{3.785050121380813*^9, 
  3.785050137936445*^9}},ExpressionUUID->"3165c251-3b88-4e07-8be5-\
c5e8577ec398"],

Cell[BoxData[
 StyleBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"A", "\[Rule]", 
     RowBox[{"2.27*^10", "-", "11"}]}], ",", 
    RowBox[{"B", "\[Rule]", "23.927"}]}], "}"}],
  FontSize->16]], "Input",
 CellChangeTimes->{{3.7850501828899803`*^9, 3.785050192079511*^9}, {
  3.785067009269932*^9, 3.785067009439635*^9}},
 TextAlignment->Center,ExpressionUUID->"81f6f834-fba4-40b1-af42-efc42bf94364"],

Cell["\:62df\:5408\:56fe\:5982\:4e0b\:ff1a", "Text",
 CellChangeTimes->{{3.7850501662737513`*^9, 3.785050168907671*^9}, {
  3.7850502159708605`*^9, 
  3.785050218528473*^9}},ExpressionUUID->"72f4cc68-8d49-433a-93d6-\
b255a0ad36bc"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVV3c4148TTxkZRUJJdik7pQjvOztSspIUISuEhFDKiCIU6WtGKJEZ2Xvv
8bG3D1JGQiSh/Pr9c/e8nufu9dxz47k7XjMHHYudO3bsoP8n/q8fhh4IJKLP
g8InUx4SdRFhK0ixyGZ1HMV7jbxt+YsIOVb/4glLafRX5X0pIF9EHHmmxtNg
qYZOKTHG2+5FxMF6we4iSwP0U2HMx8UiIuxmtEiupTXu3UlsHiYXE5dydAaz
LN0wPD8+48ZIKWFA50tMC7qjHGl14tqfUsLELDfh0II79n+RbPLkKiMcmVls
/O7ex53Pt6+fMi0jwpx6Nwy9HmLEG93rNjNlhC27yN5dF30wq0P+rtjfciJz
MFM80/Ip5gg4ZR97W0k8VEl/87DzKdr5pok2FFYSmh9T912SCcA4p9dnvdoq
ie9P364s7gnEXVy+D/BXJSEmHV0gkfcM636Pia1pVBEZ//lh3q7nOBf+ss1k
o4roE8w8ZtwZhpvGB1IO2NUQ5eMiJqpUL3Gr5udtwcc1RPKrtEgxmZd46cYS
zdXYGsKVIpV2O+klMn9WvsDcVkOwDSbNx98Lx5YPDSLL4rWE/tOorAmu/zCv
4lGU92Yt0fvlsZTF7SjkFY+0oEirJ9xWQyZb4qJwb36NvGxdPXF4Z1Twyc4o
vCgZe/fleD1hzpkxtX0yGmN1ZuziWRqIH7q9z6PXo/Hu/a8hgl4NBFPV0ZkO
31jMNTvGI2DUSJyPqY+UiY7HcL2trDrxZuJ7SqdSQks8HjNQzdmn2UyE5g99
p/kTj9se61Veds3EN+t7iXPib3AqcjOtMbWZkHz8bL0g7A3uWYs6SinQQlQX
577VMUhAlKE6qnm0lRg/RvnnyVQifs86wH5dvp2Q3/dGrWIzEdeVL0ykmbUT
iRuy4Wv7k5AQkgrn82snzNvuClsoJ6Giy7KNX3M7Mec0dVXxXRJG0SuVHr3S
QayWVedvWb5F2pM0F7ZkOwk6PW/HO3Pv0JyXSIiwIxF2BGdpys5ktNdxnTH0
IhFtAkU05EPJmDayI1oynES8+L0Up6mRjHfaBxKES0kEa7xJm3B6MopMhO4X
3tNF8Myh0Jfb77H51/0r/rldxGmvv1OGyymItWcu2zL3EIFFuvHx9Kn4OfNp
GJdwDzH2I8Xw89FUNFE4fHpJqYfwt9Al3TZMRQP5Hlx06SEGzqeUe9Wk4hOy
dIjJcA/hwaoTlfzqA5rZ3y+XSO8lyj+80/xxNh0tq2v73ln2E8yfN2il9NLx
C79X5x3ffsKSU6vuvn06pjPRy5i+6ScYX2zIUiWlI0fEKfq0oX7CxOWS4EGG
DPTGA26LWgPETvnfu2AsAwUSWKrNlAcJ1d4LRQE+WWj7QXNAWm2YcCv+mrEn
Jgvlakhvg6yGiQ/xPomhuVmoEqRgQ/lkmGC0KXwW9TkL77Jo+ZnUDxN22/uy
9PizkUf3blCH6gghGe7pbe6XjTFfSrczNEeJujI9gcfqH3GX0kpO/P1xwvhE
Ik/95Y8Yu8/bsD5+nFhPXDy02+wjnr22+JitdpwQehrIGOTxEbXE3jNFU5OJ
EJ3K9ZdpH3HuB+/YJy0yof9VuCVpTw4+ValIXZ0hE1+ZdjnWkHLwQ9GkqqbQ
JOEhLMrHMJ6DePMGzslPEgyqV3r0vuVgADfpWuKVSeLk/TTpL9S5uNw9EGTl
N0k8mNaloJXLxRzL5Uz1yUmCqfhtmGZyLoZy0XgHJUwR0jdV8wY9PqFzp8lJ
ZqlpotnT0Yrv6SeMo6JddteeJowio9ltX33CJn3B4J1204RP23fPraxPOKD6
luJewjTRKhWhyj39Cf0knEyX93whTBhm+s0v5aFEt0Wf1sIX4mlewMYifz6q
HZE3/VY/Q5gpVLzfOJGP46UCpSenZwi5tlU9KsjHdk0+1rhds8Ty5xtZhwzy
0eKkketn+VnCkOWMuUpQPk44H/spWTZLiNydbItezce6Na6IPWVzBOmEbIJK
XQGSu2K/fR/6RqSXOmpqdRWgScXg8om/3wh/teRNw/ECrM35TB/Hu0DImOzT
d/xdgFIrktob1gvE2+df6WJEC3Hyx8sflb8XCNfvL52XXhX+6x+1tTz+ReJQ
+rdzMZZF+GtWkca8bYmY2lMXWudUhJXfBHsDyEtEusPr4cWHRSgxdcClbmWJ
wFOaDsoRRXiXNjbk4aFlwrw467+FhiLcqvf/umG9TGQ0Ok2jYDHOrmcGnKT7
QchPr/t8ni9GwTsztvrGKwTtOVLr3vVivDYfMG7tvEJ0paSynaUsQUrCwCM8
cIWwsDP8EHy4BHnplCOlClaIwJUS0pmLJSgrsvNN9r5VoofiEU9AZglyQmzC
k5ZVwoqLqlz0Tin6BJb6xemuEULHiyuMH5ai4lRD5RmHNeKbhEPV82elODA7
zrYcuEY4qQzWLr8rRSyhLmutXiMe2GW05A2VIo2kQfQRyV9EWPHlQUK5DB/5
1b54wLlOlOonr148UI4Cw/OWuxk2iEcm19YeHinHnnNH686KbBCKNkzrWRLl
+HaX5kLYhQ2iwdNjc9+FcmR9eMOkLHiD6HqrubPPqxwtFT0V1vdtEl9/rDEa
z5Wj3PC2zEm+LYL5+Tlh+7IK9A176y1w8y9Rax/fVN5UgZZUm2OS/n8JV81f
Vox9FRj8+mmGbepfYnDP+7fZ3yvwYCnXVd2lv4SW6q7nvxkr0WKBvI/Ja5tg
qzPbLadQiVjq5/lJdwckVvNuViZVYmI4zWf3ZxRwP+fi+dnUSswxyr9bEE8B
eonuUfuyK3Hdb58RwycKoPIhSZmVVuKCY3rK1ggFWCt4O+/qrUQ2RQvODfGd
IF5JXlChrsL+Ap1PXkM7obQsntxsXYWnusIp/BQp4ayltmiPfRW2V9bZ21+l
hPy9uzxGnauQ5qxQ3R1HSsi6Ybl/yasKq0mfE+vjKCGRQlSVNaoKfeaajNO3
KOGJSnHajaYq9PK6KeJTRgU6bT2uq4LV6CtGN3pCjwbaXfxr/ohXY3rrfFuY
PQ1ocEkz0ZypxrcVXeHMATSg7BCTyq5YjYHs7cJ25TQgtc9sBAyrsUsgTfqZ
0G44fHlRISCwGv0JJu6I3bTwdYR2D9d8NT7xrBwgj9CByWBq3oflasy76B42
8IcOhnrVjaXWqzHLaLlqnYseWtsDsrSoavA1aUMt15QecippdXy5a5CGe9CZ
bZYeHr6ljZjRrcGEiI2Nqm0GYLGj5c0trUHznQ2veTQZIcQ6tQlranBClZM+
yJkRaCzUnVqbavBeEVu8QAwjbBgF1Ez31eAN9498czOMMH6J1vLgcg1+vCz8
yECJCT6cok3zPFqLFRzd+4qmmUBhc/dptZB/2GBLuIhghhyzjTTz8FrcXGxr
idFhBr7meT7v6Fpkale+/J8VM1BGtTMVJ9eidXVdWHcoMzSeCf8mXFGLwTEO
5Xe+MoOmE/dbxqVaFKKid74csR+uz57e369dh9L808t+dKzQpnUscOVKHTqk
T6m85mMFKDxIwWRch++bTop3yrACz5PN72o2dVh7T0Y+wJYVpo5UNRf71OH8
h2ODGu2sYGNywScutw6Dq7nVxaPYwK3fbNmCtR4XKz9sXlU5CF/CFGupDtej
50pntcfNg6CryRfxjq8e9UUolyq9D4JY3YTctHg9vlT3PFNefhCmc0yemp+v
x4tCfa+8ZdhBJ8SY++ajelRm+eNw+ewhEFYxvGgyW4/nX5x4HnT5METukOHZ
sVSP9QG7nxe6HQbqUvaV+LV6LNeolGKKPQyTJwcjx3c1oPznoetKU//seQw+
G3M1oI/kwEr5XU6g3Lp830i3ARnPchyTe80FYznaqYZlDVjC8Wh4OYAHlgQK
3IdrGrDUq1+KPY4HKGIOn7/e3IC9T2T5r+bwwBHfr3NG/Q1I07zNxT/MAza6
niKmyw1ILWr/e1KUF9ZWUrKsjjYiq2ucsOgAL+w9vSPfObgR7Y4fWmyW5wee
VAv/ny8bUU3vEKWCAT9IcLbou0b/wxeXsrod+EGP6r9f9943YoJI4pVL8fwQ
3St89n5VIzqt76tK2uYHAdcrpd4/G3HqC/kque4IEAWZ1SFGTZgkpF2QfksA
VP+zMI2/2YTiXJN4xFcANF0O78i+1YRTMmaFhbECYHIqkCC5NOF38tCWdKcA
PM6yKNwf0oRPtp67REsfg9b3hzMjy5uQQ35Hzt+9x+FaZGBUIncz0gZslcp3
C4L5PQXp3KPNKBDydSpySRDs9Nf7aoSbUZslyYx5rxA8ZLFkmZZqxvcvFLdv
qQtB4guF58e0mjEb/l0tVUIw93T9cbpXMybxoG1hoTC4u1s65k80Y2/SRcq+
KlF4mE5ve36mGUMXlykefxGFx+PZFmPfm1Fc9O/pG/Ri8EJl05B6qxk9+B7x
xF0Wg+R9L1T02Vpw7ceL48rfxKAntejQ2vkWzA4+FSOx7wSIDTHUnf7Ughm8
ql31VyVAck9ORVNxC84yHvgi6CABMvJXio2qWlBmNFX//WMJUElOyPJrb0FK
VunO5SwJuO50Jrp3pgXZB4tKG2lOQgCdiYMLZyturfpXxJSehM8yuex5/q3I
c+LPiSZZSZgYSJ0cCPqHJwPfMOpKwpjrm7StsFaUN5Htc7SRhIGcYEI5vhUZ
DhsyPo6ShDYha9Puglbk25HBvbwuCfmHOFOXZ/7x0+y3pig7DU83/KXFNNow
MMg4e9xQCvwiPSl0tNswTKnrcpmLFPiccW52udKG9nWtk0UvpOCBk+n1sptt
+MswR4GpQQruzMl6XXjQhrefVu04c1oaDIeWGmwy2nCvW4mb34GzIFJseOU9
Yzu29ehXyv2UAYF0fKDJ1o6KOUMPBthkgSfuSMLPw+3YdTaaO05aFlh8vs8p
CbWjUNXfmfcPZGFT3echWbkdZVMYdUqo5aB5MPUdu0c7SuX8DmLiJ8D69/rK
s8/teMCH68SmJ4LZ/OjBU/PtmF3hTwnvEK6PVhNDy+1YxSzf8rEVQasq6Mnx
7XZk3toVxrZXHqQCeDjq2DvQckRwotRYHqjZ1RT/anag2I2F3k5KBUiSjnjh
WNSBS9lKZzbMFUF+iiJ3vaIDTyfnFnneV4SxYLter/oOPNZ9peVwmCIcmlI4
FNrdgY39F3kyKxThRfC3pI8LHchi6KHBe1gJcPnNtd9MnXgz9DKV9ZASiKqu
2cuodGKlxE+y020VeBAj7PVQrRMjbthXpD9RgeYlk9BqjU582qJeQJ2oAtYx
LbnndTrx/IDnC45+FXi79Gbd8EYnxnU0ybcpqgJHjIbPffdObFww/32X5xzQ
Lr15VZrRiRShZcKrP9WgZ+NvcGN2Jx55YCF6l1kd4qiM/HtyO3F67EIBs7g6
SHKw3/tW1ImnG1+u51qrg7FqqMHh+k7su26l4TuqDjmx3hwPxjr/5Y/ppWvb
ebiubpYgy0j6999lt9U0XAABvcqoc8wkTN/pzBk/cwGWjbnCdFlJ+JRuYjGe
9iL4Ow/52HKQ8D2PZCPzhYvwMV7HPOYYCUUKximquy4C9ZrisU0koRRHM+vt
r5qQlcifUexIwkP/nWeOjtD6tw/cdHc7k3A463jckXQtkGdo/335HgmTTvNE
NlZqQZeLm+qyJwmZox31jOa0YE2tbfzYMxJaB5XcKgNtgEVX5lfvSKgbl2Tm
/E0b2mWb7zkMkTDmFFV3ynVdiHDk5iobJaF/eZV4grMumLxzrqWbIOHKit7Z
giBd+LGXe1/yVxJue/F8kSvTBbbJux9GVkkodOtUfg63Hhg/5RxVZ+xCTYOO
c7fm9GChx1HxiHIXmqtcKmWJ1IeTFd87zp7rQrUJOyOJHH1wTbUzunS+C2fb
FoTtWvVhx0NrNw+tLqR/Xz0iR3EFmI+ZZHZe78Ij9KesNe2ugLT7pUOeLl0Y
Jt7mpa1mAL6cYj96k7vw0MMeqeGDhtBIk/5oPrULdXaMAqWUITD8ENxDkdGF
u2ToebUuG8J/9UePi+R2YeEhwYPaYYaQ4sBp7FPRhWXX+5W39lyD9iqGZrGB
LuT9zdzBwXAd2C3nE57QdiOHUIBp2hFjyBYRyQxm6MY3BoW/SarGoLpiV/yS
sRt5x0iK3LeMwdnre1c8azcSKRcixDKNoT16eVchbzdiDQ3vUZkb8Ljjl8XM
2W60orYMbhUxge/SlELqNt14xr779PI1U3i8rXzm0u1u5Nx6tR7jYAoc9X6K
lx27cd7QfZeRrymo6dJcM3XtRsqDRfp8aaaQdJsuyN2nGxn5dpWVbpqCQSLT
99TobuxmDpU6l2AG1fScOXQt3cij6fTI/u9NuLKlZ6fT3o16mu+Tdx4wh2/f
ggSiSd3o5zhJmSduDmztW9GCA904RxLedDY1B5sXI75q091IY3x1zqLeHJhZ
Yy/7b3fjSem7qqL/WYAZF8dvCskeLCA8rK00reDXXt1cdakevJCzc2uPrRUE
bQfeDpXpQTeW3Y39T6wgn7wxwaPQg8snFvN7q6yALmmoGTV78FRuStEjKWvI
ORYd62ndg7VzrVq5grdgpwS7/O/YHqRgLBMfEbKF/f3uE7vf9KCWhoIz1Xlb
OOI55HMwqQdFiQpXnVu2oNIUUyeV2oMzEd1XDVJs4akpl4ZrXg8Wvp3kPnjc
DvaG8euvtPXg/NSvx0Fit+HQiqjdwt8efB+ZGOlu4ADCUSF7/lD04sA9isLb
DxxADhczGah60X3oOcuzNw5g9Cx7WZi+F40ZkhUVZx3gDf+pezYHenGaW61P
Fxz/zb+0z1fxXtS4V/26tNcRJPIUIydMevHKg/EnGqxOIO8X/fWkee+/JbDt
0SDsBFqXf5x5bNWLaYvfzG4oOoH9z4ReAfteLJK0ip1ycIIPpyn2293vxYX1
9mCFVifgy68IXnvVi9xrE8VOgXeBpUDOl76lF5VH37FkcroA/5Pwruvtvfip
5LTxopQLnLzyjTeT1IshMHRBW8cFtH7FVGoN9OLB6MWSe09cIFhq88+r6V7M
8FYz1l1xAerCIjeeHX34hve1sg3JFX4VnrE/fboPLew0dqqmuIGBhbbcPek+
tHw0M2Nc7wbF++zoimT70MBYIyj2sxs8sElIllPsQ+nvv0r9ed1hx2GGcaVL
fcgvSVfC8doddj+auKRzqw8VgiDQMcYDDqoESTi87sNLPOcUWfIfgPty8nb2
mz6UYU1e4B58AEOvq9p+JPXh7WpaE/2tBxC7tnbL9UMfUstu2igreQJPimmi
Z0EfToVcGBfq9gRBeqn9QaQ+/BssqaK1+RBkSBOrKVT9SP7i46BQ4AUHTh39
kLO7H0fGNCLUmr1gNdz6Ril9P8IwhbXFqBdkGCw2dezrx1SfJUvyLm/gIW/F
rXH2o1T6kfAxbW+gXjygrnymH9Ofcvbs++ENXQyar8ct+/Fwn94pemVfyLIP
1Zm91Y9915odfl/1haDOHpoVu34cyKFN2uHoCyrh15yo7/Zjj/jHG4axvlDI
ceuc6KN+DLXTvAxrvhAn9HjZI6Ifv7hByUTmY7BVK1Zha+zH5OLE7FuS/qDa
s5pi2tKP32wyjvRc8gc+E3GGjPZ+dHQ472Ri6w8D9952KfX2oz5NrMJ4oj8o
vw+5cWeyH48dibrksf8JcFHfdG/d6sf48oQ2jc0n0FlDn+EjMYCeR2Yiwr8E
QNolVaZ2yQE0ti1Tek4dCP7DXnfZpQfwqbq/7UeBQJBb+Xk2GwZQ0VP8h51V
IKTyketHNQaQK6EG6+cCwcf7E1nacgCb/F7Xiv5+BpJoxLIYPYAJJSZ5cmdC
4JlXpfHOuAGci//Pec/VEJis4k9lTRjA8IoEHeoHIfBCeY6Qez+AMlbXj9yp
DoF59XtWAbkDaGfBLnNC+zkk6oUW87cOYL2fyjjIvgAmmzoTgz8DKP+rbm+/
YyhYpR1Ps90xiLHDHLJLj0Oh/Nuznw93DaLo/OsXPFGhYOegE/iOdhBN+2n4
GqpCocF5PPcH6yD+OmRMEmMJg4ePflMHiw3iGM05E6+yMJgPF82oujGIdeyz
rT/4wiE8R9e1zmwQN1gv/fl4NhzkOt2xyWIQFX9XjwdqhUMIfT2p03YQua4w
iQc+DIeTPsZr4/cG8e73gyLVw+Hg5vAc/z4fxOIKqU8SMa+A8vwySaZyECPZ
W1O/iEVAhtWBGKgZxDUq8Vk29QjQ9yPMFesHUURqusz8ZgS8rwxYU2/952/F
mXE1MgLOS/FxXB0YxAtG9brpuyIh9Iiu+b2lQaz/5dzITI4Eru1Pa7k8Q9hv
Kxc3kh0Ndapdt3/zD2HK5z8pr0jRYBey+BmODaFMyjLJ9Uc0lHAKdTeJDuEY
9y2lHMkYMJCLzxqXGUI++RSW/SUxEOoeYE1/eQgf97UUp3TEAuWq0ZBZwBC+
GXpm/ZI9HtJk72unBA3h7ZId+AnjQcc3snHh+RCy7xfr2WUZD2+Yu/Pd/hvC
55OSPCdy44GQUHsZkjSErW33myeOvQFX+5MXisuGMEzRoJ6y6Q3MzlCX7/sx
hCaXM4eMuRKB4cuFw9w/h3CvTVzugVOJIDYV5iGyPoS3iHc4cy4RnEe5pM79
HcLqZ96jnXcSYUfXmewHdMM447JHvKY+EQ6WWCZ+5RtGvvkRP2WXJFANrvcv
0x3G2JG8EN/pt3ArkGG6WX8YHb6wldz68xaCnugoDVwdxmvBFXK2rO+gy3ts
+8eNYRxXZCurVHkHRq5rbsfthlH7ysbRovfvwPmGgO3Lx8MYaS72cdMxGZIk
/C/dyhvGbGcFnmz2FKg1qLlWWDiMymtaE2FSKfDl0Q5rmtJh5OYp/Rh9OQWO
t3t4vaseRov2j9KHwlIg08bh40THMOYdXl8ZZUiFwiSD/YZzw3jgTK5fAu0H
aGUV7j/PPYJ1pOYQR950WJCznoriG0Fb5bwyHeV02Gv+bnHm6AiyuDwTM7FK
B+0c7t1PREZwZ2Z7+p+MdOjTZDlbc3YEbywcpFMnMoD85E+0rN4IMntVRmmb
Z8Lq7w5jkYARJNGq3B+1yYbQvtM6SkEj+PHdab1xz2wQy41RMXw+gt0lz8V+
vcgGazsrkaevRlCF0f/irYJsGBn7+3sq4R/fay4qQ6qPUFsj+iqmeATXRMsU
H7/7COHBz1rovo1gkf1oUNGvHJCwWS7nXRzBTAMRyNqTC+2qV3Kkf/yLX379
Wjl/LuzewR9luT6C883TOoJauf/+sWLLaspRHDqabn/6Qy6YX5ml8OAcRfu3
D3vkb34CSd5z0rOao8jEb2G6PZsH/EMOH5a0R3F5yKB4bGc+ML+MPLyuN4pT
nITmEEc+LFHO7aC5Nooey0ffC2jmQ/pMUNMRq1EM5H79/sCnfODP7jI0eTSK
dK/6Mu75FQAzGnv2Z40ilf37VU4sAop1/8WxnH9Yezui7loRLGVnmX7JG0Ue
lfNVwW5F0M5HofqzZBQJtmdnvXKKIJD67d79jaPY/zelZ/lYMVC0z8Zrkkfx
ne4c+Th7CSxdd6muYxrDO3eqM9ZZy2AUX03uZRlDDsnPpk1ny6CZL2+nwYEx
/FxIe6LeqAzezawqznGO4WHz4RXl5DIwdHau2Ss8hhfupx0yOlsOdc/u1l5R
GcMJe5e249YVEF18p37WfQx/PlYsmVithCevQ7+c9BxDVyn5pWraqn/37Efq
B15j6Peaf7iMqwouqS6r7n0yhmWGFtoU6lVA2eXYcDJ8DCnY5rE6rgrsZx0a
72eOYaG6TIrapWpQOmjfvGdqDMfvRx/Tq6uB9Ox8EteXMTSI4p2lH6kBNvXt
AfHZMXTz16gb/VEDM+4vvmovjuHxU+9UOnlqIWg4h/K/zTG8p9+Zv+JZCz1x
v4CLZRydtdS0LxF1YH7UO1dMZRz/ui56SZPqoa2sqRjVxtGLz87Scb4ezugz
V2tpjOONfUp29VQNsPtJUqeT9ji+kIu/2SbT8K++dQv5RuOY+Vmo53xyA6ym
0R1H13H8/tVkiM+3EfxOhsdeej+Ol5QOraldboZvq93aiR/GUX4/uZTFtRn0
CvbT/Mz4xz+7fo02ohn45F7eif40jpcNR7/fHmyGSpUw1emqcYzQdaIRMmmB
LYMXSx4j4xjDRzEQ49IKRajK172bjPupbitNVrXDN54vDx7QkVFrd3fMiZl2
4Nnp33+UgYzDqZqpmXs74GltXZAbIxkXGz1IMtc7QF9d5RcnGxmJ1//NRP3u
gFUd5VZrfjIuzUdc74nrBHFLRde/BBknJcoCzdZIEJSnxPQGyUi+VjVqwNAF
M5QqHxQUyDjPQ0dvw9cFiUnnxh4rk1Hn5fS9Uc0uYJm4oEqvQUa8vynLkNoF
G9eusB00IONMbdWfZLNuqNW2y5dwIuMRgaLn9fM9wJtwW6v7LhlFT91aMKTq
hYdL9nPOLmTkpHsdupe7F6Se3+EqdCPjScVPqj06vfCh1dUfHpGRjvz59WhJ
Lzw/562vEUTGStKqPV14HxgS/62ZJ5OxXHXqyJzRADh/FX48956MzVUxabnu
A/A8tGqfYyoZp2VNJmNfDUDt9DeR++lkzL5QtdTeNgBiIUo3Q3PIeDV3LCQP
B2Hn+FJHWTkZ04p4z2cIDkGal0YqWz8Z1S/039Q9MAL1QhNnYgfIWDcvcfy6
1AiQe1xreYfIGPvhrnPAlRFgE0wcFxklo5D/Qw2dyBHwIq2zKk2RMXl2PDiB
YxT0+JJ9HBbJuMbP1nNNcAy2anZcb6SZQOKaX4iMBBnYdoVV2tNOYJYuiUNB
hQwnFPmPstJPYH7lxdsmV8lws1Llu+neCdyy9Omf9SZDc2mg1ybLBHI86hcW
7iFDZB7LOzG+CVwsWLDx9ZyACSJOnE1sAheO4vx17kn4H3X22f0=
        "]]},
      Annotation[#, "Charting`Private`Tag$50090#1"]& ]}, {}, {}}, {{}, {{}, 
     {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
      1.6], PointBox[{{0.477, 1.*^-6}, {0.495, 2.*^-6}, {0.505, 3.*^-6}, {
       0.512, 4.*^-6}, {0.518, 5.*^-6}, {0.523, 6.*^-6}, {0.527, 7.*^-6}, {
       0.53, 8.*^-6}, {0.533, 9.*^-6}, {0.536, 
       0.00001}}]}, {}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 0.607}, {0., 8.641486921495483*^-6}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Input",
 CellChangeTimes->{3.7850503732079887`*^9},
 TextAlignment->Center,ExpressionUUID->"8f06def3-33fe-4896-93d0-e14546e326db"],

Cell[TextData[{
 "\:7531\:516c\:5f0f",
 Cell[BoxData[
  FormBox[
   RowBox[{"A", "=", 
    RowBox[{"Is\:548cB", "=", 
     RowBox[{
      RowBox[{"q", "/", "k"}], "/", "T"}]}]}], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "dc7a73a4-8fdf-4e11-824d-6586c9ad7e05"],
 "\:89e3\:5f97"
}], "Text",
 CellChangeTimes->{{3.785050393301049*^9, 
  3.7850504501454782`*^9}},ExpressionUUID->"900ac64c-5489-4dbd-bcae-\
158699eeb104"],

Cell[BoxData[
 StyleBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Is", "\[Rule]", 
     RowBox[{"3.25*^10", "-", "11"}]}], ",", 
    RowBox[{"k", "\[Rule]", 
     RowBox[{"2.352", "*", 
      RowBox[{"10", "^", 
       RowBox[{"-", "23"}]}]}]}]}], "}"}],
  FontSize->16]], "Input",
 CellChangeTimes->{{3.7850504619683576`*^9, 3.7850504654378853`*^9}, {
  3.7850598809094744`*^9, 3.7850599115348625`*^9}, {3.7850670029498506`*^9, 
  3.7850670031606035`*^9}, {3.785067868054254*^9, 3.785067868179291*^9}},
 TextAlignment->Center,ExpressionUUID->"f2b650a0-607f-43f7-8abd-44112621b474"],

Cell[TextData[{
 "\:6d4b\:5f97\:7684\:73bb\:5c14\:5179\:66fc\:5e38\:6570\:4e3a",
 Cell[BoxData[
  FormBox[
   RowBox[{"2.352*^-23", 
    RowBox[{"J", "/", "K"}]}], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "b0da688a-3856-4f55-8ad5-6d3fbbe6cda0"],
 "\:3002"
}], "Text",
 CellChangeTimes->{{3.7850504888776865`*^9, 3.7850505315170774`*^9}, {
   3.7850606746870546`*^9, 3.785060687222371*^9}, 
   3.7850667104715214`*^9},ExpressionUUID->"be3031b4-c212-4375-a628-\
9079cd87446d"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:6e29\:611f\:7ed3\:679c\:62df\:5408", "Subsection",
 CellChangeTimes->{{3.785060113401885*^9, 
  3.7850601194930587`*^9}},ExpressionUUID->"983012d5-b50e-4dd3-8a53-\
8202ea0164d2"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{298.15, 0.521}, {303.75, 0.506}, {308.15, 0.494}, {313.15, 
      0.481}, {318.15, 0.468}, {323.15, 0.455}, {328.15, 0.442}, {340.15, 
      0.409}, {343.15, 0.402}, {348.15, 0.388}, {353.15, 0.375}, {360.15, 
      0.356}, {363.15, 0.348}, {368.15, 0.335}, {373.15, 0.322}, {379.15, 
      0.306}, {382.15, 0.299}}]}, {}}, {}, {}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"T/K\"", TraditionalForm], 
    FormBox[
    "\"\\!\\(\\*SubscriptBox[\\(V\\), \\(F\\)]\\)/V\"", TraditionalForm]},
  AxesOrigin->{296.8375, 0.28789999999999993`},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{298.15, 382.15}, {0.299, 0.521}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Input",
 TextAlignment->Center,ExpressionUUID->"9637874d-f1e3-4819-ad1a-e0bcff6948d2"],

Cell["\:7528\:7ebf\:6027\:51fd\:6570\:62df\:5408\:ff0c\:5f97\:5230\:7ed3\:679c\
\:4e3a\:ff1a", "Text",
 CellChangeTimes->{{3.7850602171632824`*^9, 
  3.785060231215908*^9}},ExpressionUUID->"11447549-3a9a-40c3-ba35-\
6d66aeb6cf35"],

Cell[BoxData[
 StyleBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"k", "\[Rule]", "0.002652"}], ",", 
    RowBox[{"b", "\[Rule]", "1.31164"}]}], "}"}],
  FontSize->16]], "Input",
 CellChangeTimes->{{3.78506024876372*^9, 3.785060252459075*^9}},
 TextAlignment->Center,ExpressionUUID->"8e7b1851-6ea8-4a3f-8de2-fa233cc721e0"],

Cell["\:622a\:8ddd\:4e3a1.31V\:3002", "Text",
 CellChangeTimes->{{3.785060476145152*^9, 3.785060490536496*^9}, {
  3.785065817175254*^9, 3.785065817236376*^9}, {3.7850665520487337`*^9, 
  3.7850665585765066`*^9}},ExpressionUUID->"a1f42611-d377-4b11-9c3a-\
9107ab26fe00"],

Cell[TextData[{
 "\:8ba1\:7b97\:5f97\:5230",
 Cell[BoxData[
  FormBox[
   RowBox[{"E", "=", 
    RowBox[{
     RowBox[{"q", "*", "V"}], "=", 
     RowBox[{"1.31", "eV"}]}]}], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "7c5fade7-6487-47ae-b3b6-6f04ee5d33a9"]
}], "Text",
 CellChangeTimes->{{3.785060505568801*^9, 3.785060557647608*^9}, {
  3.785060632943513*^9, 3.7850606557520266`*^9}, {3.78506704758033*^9, 
  3.7850671202702136`*^9}, {3.7850671980280437`*^9, 3.7850672002557173`*^9}, {
  3.7850672645265875`*^9, 
  3.7850672675223145`*^9}},ExpressionUUID->"44618b46-12a9-4b99-9d2f-\
e980e2f1d2d1"],

Cell[TextData[{
 "\:5143\:4ef6\:7684\:6e29\:611f\:7075\:654f\:5ea6\:4e3a",
 Cell[BoxData[
  FormBox[
   RowBox[{"2.652", 
    RowBox[{"mV", "/", "K"}]}], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "7d3b572c-f981-4fbc-892e-5d4610f5d275"],
 "\:3002"
}], "Text",
 CellChangeTimes->{{3.7850671231656685`*^9, 
  3.7850671306297207`*^9}},ExpressionUUID->"786df6c4-b96a-49fe-bf4d-\
0e186fe64947"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:8bef\:5dee\:5206\:6790", "Subsection",
 CellChangeTimes->{{3.7850639350819445`*^9, 
  3.7850639552769203`*^9}},ExpressionUUID->"8578b26a-43b3-4262-ac34-\
12ab0820a6d9"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
    "\:73bb\:5c14\:5179\:66fc\:5e38\:6570\:7684\:516c\:8ba4\:503c\:4e3a1", 
     ".380649", " ", "*", " ", 
     RowBox[{"10", "^", 
      RowBox[{"-", "23"}]}], " ", 
     RowBox[{"J", "/", "K"}]}], "\:ff0c", 
    RowBox[{
    "\:5b9e\:9a8c\:4e2d\:5f97\:5230\:7684\:6d4b\:91cf\:503c\:4e3a2", ".352", 
     "*", 
     RowBox[{"10", "^", 
      RowBox[{"-", "23"}]}], " ", 
     RowBox[{"J", "/", "K"}]}], "\:3002", 
    "\:4e24\:8005\:6570\:91cf\:7ea7\:4e00\:81f4", "\:ff0c", 
    RowBox[{
    "\:4f46\:662f\:6d4b\:91cf\:503c\:662f\:516c\:8ba4\:503c\:76841", ".7", 
     "\:500d"}], "\:ff0c", 
    RowBox[{"\:76f8\:5bf9\:8bef\:5dee\:8fbe\:523070", "%"}], "\:ff0c", 
    "\:8bf4\:660e\:5b9e\:9a8c\:7684\:8bef\:5dee\:8f83\:5927", "\:3002", 
    RowBox[{
    "\:5176\:4e3b\:8981\:539f\:56e0\:5e94\:8be5\:662f\:6d4b\:5f97\:6570\:636e\
\:70b9\:4e0d\:591f\:591a", 
     RowBox[{"\:ff08", 
      RowBox[{"10", "\:4e2a"}], "\:ff09"}]}], "\:ff1b", 
    "\:800c\:4e14\:65bd\:52a0\:7684\:7535\:6d41\:8f83\:5c0f", "\:ff1a", 
    "\:5e94\:8be5\:91c7\:7528\:66f4\:5927\:7684\:7535\:6d41\:4ee5\:83b7\:5f97\
\:6307\:6570\:51fd\:6570\:5267\:70c8\:53d8\:5316\:7684\:533a\:6bb5", "\:ff0c", 
    SubscriptBox["\:8fd9\:6837\:80fd\:4f7fI", "F"]}], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "5960de7c-c542-496e-b445-fb193beaaa94"],
 "\n",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\:7684\:503c\:968fV", "F"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "d546514f-4f36-4dcf-868b-1c20e8d6dab0"],
 "\:53d8\:5316\:5f97\:66f4\:660e\:663e\:3002"
}], "Text",
 CellChangeTimes->{{3.7850665713676615`*^9, 3.7850665788927307`*^9}, {
  3.7850666252214985`*^9, 3.785066814051358*^9}, {3.785066855552103*^9, 
  3.785066873898034*^9}, {3.7850674537688465`*^9, 3.7850675853004646`*^9}, {
  3.7850676801812935`*^9, 
  3.785067802244669*^9}},ExpressionUUID->"f4fd4ed7-9810-4343-bfc5-\
a0fc5c36154a"],

Cell["\:53e6\:5916PN\:7ed3\:7981\:5e26\:5bbd\:5ea6\:7684\:516c\:8ba4\:503c\
\:4e3a1.205eV\:ff0c\:5b9e\:9a8c\:6d4b\:5f97\:4e3a1.31eV\:ff0c\:76f8\:5bf9\
\:8bef\:5dee\:4e3a8.7%\:ff0c\:8bef\:5dee\:6bd45%\:7684\:6807\:51c6\:7a0d\:5927\
\:3002", "Text",
 CellChangeTimes->{{3.785067157185152*^9, 3.785067174902835*^9}, {
  3.7850672795645323`*^9, 3.7850673153674507`*^9}, {3.785067356591566*^9, 
  3.7850673668105865`*^9}, {3.785067828727415*^9, 
  3.7850678552464247`*^9}},ExpressionUUID->"4425d98e-7350-4f8d-8737-\
10bcae54f98b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"AA", "[", 
   RowBox[{"f_", ",", "int_", ",", "h_", ",", "end_", ",", "start_"}], "]"}], 
  ":=", "\[IndentingNewLine]", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"A", ",", "c", ",", "n", ",", "i"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"c", "=", 
      RowBox[{
       RowBox[{"IntegerPart", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"end", "-", "start"}], ")"}], "/", "h"}], "]"}], "+", 
       "1"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"A", "=", 
      RowBox[{"Table", "[", 
       RowBox[{"0", ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "c"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"i", "=", "1"}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"A", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "=", "int"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"i", "=", "4"}], ",", 
       RowBox[{"i", "<", "c"}], ",", 
       RowBox[{"i", "++"}], ",", 
       RowBox[{
        RowBox[{"A", "[", 
         RowBox[{"[", 
          RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"A", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "+", 
         RowBox[{
          RowBox[{"h", "/", "24."}], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"55", 
             RowBox[{"f", "@", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{
                 RowBox[{"h", "*", 
                  RowBox[{"(", 
                   RowBox[{"i", "-", "2"}], ")"}]}], "+", "start"}], ",", 
                RowBox[{"A", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", "-", "1"}], "]"}], "]"}]}], "]"}]}]}], "-", 
            RowBox[{"59", 
             RowBox[{"f", "@", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{
                 RowBox[{"h", "*", 
                  RowBox[{"(", 
                   RowBox[{"i", "-", "3"}], ")"}]}], "+", "start"}], ",", 
                RowBox[{"A", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", "-", "2"}], "]"}], "]"}]}], "]"}]}]}], "+", 
            RowBox[{"9", 
             RowBox[{"f", "@", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{
                 RowBox[{"h", "*", 
                  RowBox[{"(", 
                   RowBox[{"i", "-", "4"}], ")"}]}], "+", "start"}], ",", 
                RowBox[{"A", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", "-", "4"}], "]"}], "]"}]}], "]"}]}]}]}], 
           ")"}]}]}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Return", "[", "A", "]"}], ";"}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 EmphasizeSyntaxErrors->True,
 CellLabel->"In[19]:=",ExpressionUUID->"15b267f8-656c-4eac-b53c-03dcec433f35"],

Cell[BoxData[
 TemplateBox[{
  "Syntax","sntxf",
   "\"\\\"\\!\\(\\*RowBox[{\\\"f\\\", \\\"@\\\"}]\\)\\\" \:540e\:9762\:4e0d\
\:80fd\:8ddf\:7740 \\\"\\!\\(\\*RowBox[{RowBox[{\\\"[\\\", \
RowBox[{RowBox[{RowBox[{\\\"h\\\", \\\"*\\\", RowBox[{\\\"(\\\", \
RowBox[{\\\"i\\\", \\\"-\\\", \\\"2\\\"}], \\\")\\\"}]}], \\\"+\\\", \
\\\"start\\\"}], \\\",\\\", RowBox[{\\\"A\\\", \\\"[\\\", RowBox[{\\\"[\\\", \
RowBox[{\\\"i\\\", \\\"-\\\", \\\"1\\\"}], \\\"]\\\"}], \\\"]\\\"}]}], \
\\\"]\\\"}]}]\\)\\\"\\!\\(\\*RowBox[{\\\"\\\\\\\"\\\\\\\"\\\"}]\\).\"",2,1,9,
   27772820477753566621,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.785148721220295*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[19]:=",ExpressionUUID->"b45f85c6-d5b8-482a-90b6-\
3b02fa64ca0a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"#1", "^", "3"}], "+", "#2"}], "&"}]}]], "Input",
 CellChangeTimes->{{3.785148730890955*^9, 3.7851487394669847`*^9}, {
  3.7851488426629314`*^9, 3.78514884369222*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"548dfde2-8ea6-422c-a42e-793bfb6844aa"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["#1", "3"], "+", "#2"}], "&"}]], "Output",
 CellChangeTimes->{3.785148740114093*^9, 3.785148844460127*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"121a9052-cc4f-4c55-96fc-384dbc15c510"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "[", 
  RowBox[{"1", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.785148847033245*^9, 3.785148854830021*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"016f534f-1cc3-4468-84f6-cb11116466cc"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.785148855742538*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"1565355c-7a93-4e87-961e-fbd8cc3d565f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "@", "1"}]], "Input",
 CellChangeTimes->{{3.785148741199193*^9, 3.7851487460604506`*^9}, {
  3.785148829286105*^9, 3.785148830597145*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"71843458-e67d-41d5-868e-12112490946e"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.7851488317919116`*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"641b77f5-0abf-4196-b050-71e6bc586440"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1280, 637},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
PrintingCopies->1,
PrintingPageRange->{32000, 32000},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{841.92, 1190.52}},
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (2018\:5e743\:670828\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 177, 3, 96, "Title",ExpressionUUID->"4bd6f528-75ad-45f8-a448-81df43acee8c"],
Cell[CellGroupData[{
Cell[782, 29, 185, 3, 67, "Section",ExpressionUUID->"ee171d3d-8b5a-4493-bf98-654061585599"],
Cell[970, 34, 749, 14, 100, "Text",ExpressionUUID->"4d752fd2-d606-4fb8-a876-e0324d7067b9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1756, 53, 159, 3, 67, "Section",ExpressionUUID->"034579c0-f6fa-40e8-948a-d9772168b15a"],
Cell[1918, 58, 2153, 42, 60, "Text",ExpressionUUID->"b6e2db9f-b4b3-4685-b467-dc0423049206"],
Cell[4074, 102, 2247, 50, 49, "Text",ExpressionUUID->"3ed071e4-b3b6-44bb-8ca6-7ca28fe9b811"],
Cell[6324, 154, 509, 13, 34, "Text",ExpressionUUID->"f4a8b676-de5a-4715-a9f6-63e81542df59"],
Cell[6836, 169, 3094, 58, 91, "Text",ExpressionUUID->"b46de36d-7d02-4f88-a8dd-703c1f5b4c42"],
Cell[9933, 229, 2254, 51, 57, "Text",ExpressionUUID->"b9135f1e-dbd0-49b2-b6c0-ce3da68f9fe2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12224, 285, 183, 3, 67, "Section",ExpressionUUID->"76fe335e-8a01-45bd-9677-e433a5185cca"],
Cell[12410, 290, 930, 17, 122, "Text",ExpressionUUID->"d9448835-ee1a-4336-88e8-72ad589ad665"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13377, 312, 197, 3, 67, "Section",ExpressionUUID->"c0df295f-bbb2-4acd-9279-758231a20130"],
Cell[13577, 317, 294, 5, 34, "Text",ExpressionUUID->"ee7f69ef-4a7f-4c5f-bd5b-9d2abb58f507"],
Cell[13874, 324, 674, 15, 59, "Text",ExpressionUUID->"8a15c8a8-a6a1-4f68-80f2-0376d874ec10"],
Cell[14551, 341, 686, 14, 61, "Text",ExpressionUUID->"a2c6c2c4-6a56-4808-9219-64ed1b42c6a1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15274, 360, 169, 3, 67, "Section",ExpressionUUID->"9e3083e1-169d-4882-b0ca-f0d207fa85eb"],
Cell[15446, 365, 506, 11, 34, "Text",ExpressionUUID->"48d5c4d4-2d4d-41a3-8d30-a9c8a8d88720"],
Cell[CellGroupData[{
Cell[15977, 380, 188, 3, 53, "Subsection",ExpressionUUID->"60a67437-7577-4b1e-9101-fb43c6334617"],
Cell[16168, 385, 1647, 43, 236, "Input",ExpressionUUID->"d1fed98e-ce1b-445e-b20d-0b5947de6b6c"],
Cell[17818, 430, 210, 5, 34, "Text",ExpressionUUID->"05ee9bc9-29e0-486a-bfc6-52c522562c44"],
Cell[18031, 437, 228, 4, 34, "Text",ExpressionUUID->"3165c251-3b88-4e07-8be5-c5e8577ec398"],
Cell[18262, 443, 399, 10, 32, "Input",ExpressionUUID->"81f6f834-fba4-40b1-af42-efc42bf94364"],
Cell[18664, 455, 231, 4, 34, "Text",ExpressionUUID->"72f4cc68-8d49-433a-93d6-b255a0ad36bc"],
Cell[18898, 461, 12827, 227, 219, "Input",ExpressionUUID->"8f06def3-33fe-4896-93d0-e14546e326db"],
Cell[31728, 690, 445, 14, 36, "Text",ExpressionUUID->"900ac64c-5489-4dbd-bcae-158699eeb104"],
Cell[32176, 706, 582, 14, 32, "Input",ExpressionUUID->"f2b650a0-607f-43f7-8abd-44112621b474"],
Cell[32761, 722, 503, 13, 34, "Text",ExpressionUUID->"be3031b4-c212-4375-a628-9079cd87446d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33301, 740, 186, 3, 53, "Subsection",ExpressionUUID->"983012d5-b50e-4dd3-8a53-8202ea0164d2"],
Cell[33490, 745, 1660, 41, 241, "Input",ExpressionUUID->"9637874d-f1e3-4819-ad1a-e0bcff6948d2"],
Cell[35153, 788, 230, 4, 34, "Text",ExpressionUUID->"11447549-3a9a-40c3-ba35-6d66aeb6cf35"],
Cell[35386, 794, 321, 8, 32, "Input",ExpressionUUID->"8e7b1851-6ea8-4a3f-8de2-fa233cc721e0"],
Cell[35710, 804, 270, 4, 34, "Text",ExpressionUUID->"a1f42611-d377-4b11-9c3a-9107ab26fe00"],
Cell[35983, 810, 626, 16, 34, "Text",ExpressionUUID->"44618b46-12a9-4b99-9d2f-e980e2f1d2d1"],
Cell[36612, 828, 416, 12, 34, "Text",ExpressionUUID->"786df6c4-b96a-49fe-bf4d-0e186fe64947"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37065, 845, 176, 3, 53, "Subsection",ExpressionUUID->"8578b26a-43b3-4262-ac34-12ab0820a6d9"],
Cell[37244, 850, 1981, 46, 81, "Text",ExpressionUUID->"f4fd4ed7-9810-4343-bfc5-a0fc5c36154a"],
Cell[39228, 898, 525, 8, 34, "Text",ExpressionUUID->"4425d98e-7350-4f8d-8737-10bcae54f98b"],
Cell[CellGroupData[{
Cell[39778, 910, 2928, 82, 290, "Input",ExpressionUUID->"15b267f8-656c-4eac-b53c-03dcec433f35"],
Cell[42709, 994, 779, 15, 24, "Message",ExpressionUUID->"b45f85c6-d5b8-482a-90b6-3b02fa64ca0a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43525, 1014, 314, 7, 28, "Input",ExpressionUUID->"548dfde2-8ea6-422c-a42e-793bfb6844aa"],
Cell[43842, 1023, 237, 5, 32, "Output",ExpressionUUID->"121a9052-cc4f-4c55-96fc-384dbc15c510"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44116, 1033, 221, 4, 28, "Input",ExpressionUUID->"016f534f-1cc3-4468-84f6-cb11116466cc"],
Cell[44340, 1039, 148, 2, 32, "Output",ExpressionUUID->"1565355c-7a93-4e87-961e-fbd8cc3d565f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44525, 1046, 244, 4, 28, "Input",ExpressionUUID->"71843458-e67d-41d5-868e-12112490946e"],
Cell[44772, 1052, 150, 2, 32, "Output",ExpressionUUID->"641b77f5-0abf-4196-b050-71e6bc586440"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

